home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00285_Script_bar regionpop < prev    next >
Text File  |  1999-03-07  |  2KB  |  60 lines
  1. property thePopLocc, popSpritec, popNamec, mySpritec, fieldObjc
  2. global currentChartName, popbgSpritec
  3.  
  4. on new me
  5.   set mySpritec = the spriteNum of me
  6.   set popSpritec = mySpritec + 1
  7.   set popbgSpritec = mySpritec - 3
  8.   set right = the right of sprite (mySpritec - 2)
  9.   set top = the top of sprite (mySpritec -2)
  10.   set thePopLocc = point(right, top)
  11.   set popNamec = "region_field"
  12.   
  13.   puppetSprite popSpritec, true  
  14.   --  set faraway = point(-1000, -1000)
  15.   set the loc of sprite popSpritec = point(-1000, -1000)
  16.   return me
  17. end
  18.  
  19. on register me, theObj
  20.   set fieldObjc = theObj
  21. end 
  22.  
  23.  
  24. on mouseDown me
  25.   set the member of sprite popSpritec = member popNamec
  26.   set the loc of sprite popSpritec = thePopLocc
  27.   set the member of sprite popbgSpritec = member popNamec
  28.   set the loc of sprite popbgSpritec = thePopLocc
  29.   -- put "popped - " & thepoploc
  30.   updateStage
  31.   repeat while the stillDown
  32.     checkIfInsidec fieldObjc
  33.   end repeat
  34.   
  35.   set the loc of sprite popSpritec = point(-1000, -1000)
  36.   set the loc of sprite popbgSpritec = point(-1000, -1000)
  37.   
  38.   
  39.   set name = getPlaneNamec(fieldObjc)
  40.   if name = "" then 
  41.     nothing
  42.   else
  43.     set the text of field "bar_region" = name
  44.     mainbars
  45.     set xname = the text of field "displane"
  46.     compbars xname
  47.   end if
  48.   
  49.   
  50.   set the loc of sprite popSpritec = point(-1000, -1000)
  51.   set the loc of sprite popbgSpritec = point(-1000, -1000)
  52.   
  53.   updateStage
  54. end
  55.  
  56. on mouseUp me
  57.   
  58.   nothing
  59. end 
  60.